***************** Replication of Franchino, Fabio, and Camilla Mariotto. “Bargaining Outcomes and Success in EU Economic Governance Reforms”. Political Science Research and Methods.

* Step 2 to reproduce Figure A5

* pause on
version 16
use betas.dta, clear

sum	distSQ
centile distSQ, centile(2.5 97.5)
kdensity distSQ, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to the reference point", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0498329, lw(thin)) xline(-.1396741, lw(thin) lp(dash)) xline(.0621805, lw(thin) lp(dash)) saving(distSQ,replace)
* pause

sum	distCOM
centile distCOM, centile(2.5 97.5)
kdensity distCOM, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Commission position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0424478, lw(thin)) xline(-.1773671, lw(thin) lp(dash)) xline(.1008606, lw(thin) lp(dash)) saving(distCOM,replace)
* pause

sum	distPRES
centile distPRES, centile(2.5 97.5)
kdensity distPRES, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Council President position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0744593, lw(thin)) xline(-.2389016, lw(thin) lp(dash)) xline(.1128797, lw(thin) lp(dash)) saving(distPRES,replace)
* pause

sum	distEP
centile distEP, centile(2.5 97.5)
kdensity distEP, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Parliament position, excluding OLP", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.0765315, lw(thin)) xline(-.3256386, lw(thin) lp(dash)) xline(.138335, lw(thin) lp(dash)) saving(distEP,replace)
* pause

sum	ep_rule_distEP_2
centile ep_rule_distEP_2, centile(2.5 97.5)
kdensity ep_rule_distEP_2, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Distance to Parliament position, under OLP", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.5142339, lw(thin)) xline(-.213302, lw(thin) lp(dash)) xline(-.7955644, lw(thin) lp(dash)) saving(ep_rule_distEP_2,replace)
* pause

sum	extreme
centile extreme, centile(2.5 97.5)
kdensity extreme, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Extremeness of position", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.5616726, lw(thin)) xline(-.8075929, lw(thin) lp(dash)) xline(-.3679104, lw(thin) lp(dash)) saving(extreme,replace)
* pause

sum	v_power
centile v_power, centile(2.5 97.5)
kdensity v_power, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Voting power", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(-.4475625, lw(thin)) xline(-.9369889, lw(thin) lp(dash)) xline(-.0191551, lw(thin) lp(dash)) saving(v_power,replace)
* pause

sum	salience_r
centile salience_r, centile(2.5 97.5)
kdensity salience_r, nor normopts(lwidth(vvthin)) graphregion(fcolor(white)) legend(off) graphregion(fcolor(white)) ytitle("") xtitle("") title("Issue salience", size(small)) note("") ylabel(,labsize(small)) xlabel(,labsize(small)) xline(.2436743, lw(thin)) xline(-.0431076, lw(thin) lp(dash)) xline(.5241871, lw(thin) lp(dash)) saving(salience_r,replace)
* pause

gr combine distSQ.gph distCOM.gph distPRES.gph distEP.gph ep_rule_distEP_2.gph extreme.gph v_power.gph salience_r.gph , graphregion(fcolor(white)) cols(2) saving(figure_A5,replace)

